home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / Z-Misc Series / (k)zh.d64 / proc.ram_rom_lib < prev    next >
Text File  |  2007-03-01  |  1KB  |  56 lines
  1. 0010 // ─┼╠┼╘┼ "PRC.RAM/ROM/LIBS"
  2. 0020 // ╠╔╙╘   "PRC.RAM/ROM/LIBS"
  3. 0030 
  4. 0040 // BY ─ICK ╦LINGENS
  5. 0050 // ─UTCH ├╧═┴╠ ╒SERS ╟ROUP
  6. 0060 
  7. 0070 ╨╥╧├ ROMALL ├╠╧╙┼─
  8. 0080   ╒╙┼ SYSTEM
  9. 0090   
  10. 0100   LIBPT:=$C7EF //    NUMBER OF LIBS
  11. 0110   LIBLO:=$C7F0 //   LO START ADDRSS
  12. 0120   LIBHI:=$C7FA //   HI START ADDRSS
  13. 0130   LIBPAG:=$C804 //      PAGE NUMBER
  14. 0140   ROMMED:=%00010000
  15. 0150   
  16. 0160   NUMBER:=╨┼┼╦(LIBPT)
  17. 0170   ╞╧╥ T:=1 ╘╧ NUMBER ─╧
  18. 0180     LO:=╨┼┼╦(LIBLO+T-1)
  19. 0190     HI:=╨┼┼╦(LIBHI+T-1)
  20. 0200     PAG:=╨┼┼╦(LIBPAG+T-1)
  21. 0210     SETPAGE(PAG)
  22. 0220     ROM(LO+256*HI)
  23. 0230   ┼╬─╞╧╥ T
  24. 0240   ┼╬─ "┴LL LIBRARIES ROM'ED"
  25. 0250   //
  26. 0260   ╨╥╧├ ROM(X) 
  27. 0270     ╨╧╦┼ X,╨┼┼╦(X) ┬╔╘╧╥ ROMMED
  28. 0280   ┼╬─╨╥╧├ ROM
  29. 0290   //
  30. 0300 ┼╬─╨╥╧├ ROMALL
  31. 0310 
  32. 0320 ╨╥╧├ RAMALL ├╠╧╙┼─
  33. 0330   ╒╙┼ SYSTEM
  34. 0340   
  35. 0350   LIBPT:=$C7EF //    NUMBER OF LIBS
  36. 0360   LIBLO:=$C7F0 //   LO START ADDRSS
  37. 0370   LIBHI:=$C7FA //   HI START ADDRSS
  38. 0380   LIBPAG:=$C804 //      PAGE NUMBER
  39. 0390   MASK:=%00010000 ┬╔╘╪╧╥ 255
  40. 0400   
  41. 0410   NUMBER:=╨┼┼╦(LIBPT)
  42. 0420   ╞╧╥ T:=1 ╘╧ NUMBER ─╧
  43. 0430     LO:=╨┼┼╦(LIBLO+T-1)
  44. 0440     HI:=╨┼┼╦(LIBHI+T-1)
  45. 0450     PAG:=╨┼┼╦(LIBPAG+T-1)
  46. 0460     SETPAGE(PAG)
  47. 0470     RAM(LO+256*HI)
  48. 0480   ┼╬─╞╧╥ T
  49. 0490   ┼╬─ "┴LL LIBRARIES RAM'ED"
  50. 0500   //
  51. 0510   ╨╥╧├ RAM(X) 
  52. 0520     ╨╧╦┼ X,╨┼┼╦(X) ┬╔╘┴╬─ MASK
  53. 0530   ┼╬─╨╥╧├ RAM
  54. 0540   //
  55. 0550 ┼╬─╨╥╧├ RAMALL
  56.